package body Config is
  function Default_Config return config_type is
    function Fill_Words return keyword_array is
      default : constant keyword :=
        (False, Ada.Strings.Wide_Fixed.Tail("", 50), 0);
      result : keyword_array;
    begin
      for i in keyword_array'range loop
        result(i) := default;
      end loop;
      return result;
    end Fill_Words;
  begin
    return
      (repeat => True, tell => True, linkshell => False, say => False,
       shout => False, party => False, keywords => Fill_Words);
  end Default_Config;
end Config;
